home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / Chaos.AMOS / Chaos.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-20  |  687 b   |  21 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************
  8.  
  9. Degree 
  10. Screen Open 0,320,256,2,Lowres : Curs Off : Hide 
  11.  
  12. Do 
  13.    OX=X
  14.    OY=Y
  15.    X=159+Sin(A#+B#*3)*B#+Cos(A#-12)*Sin(C+A#*2)*B#
  16.    Y=127+Cos(A#+Sin(A#)*90)*B#+Sin(A#+22)*Sin(C*2+B#*2)*B#
  17.    If OX<>0 and OY<>0 Then Draw X,Y To OX,OY
  18.    A#=A#+1
  19.    B#=B#+Abs((Sin(C)))/40
  20.    Inc C
  21. Loop